home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib14.dsk / PAGE FLIP ANIMATION.bas < prev    next >
BASIC Source File  |  2023-02-26  |  859b  |  17 lines
  1. 10  HGR : HGR2 : CALL 37799
  2. 20  POKE 251,144:YINCR = 2: POKE 227,YINCR: REM  SET SHAPE#/YINCR
  3. 30 HR = 2:HL = 0: POKE 254,HR: POKE 255,HL: REM   START SHAPE ON LEFT SIDE OF SCREEN
  4. 35  POKE 252,2: POKE 253,13: REM  SET INITIAL VALUES FOR VT/VB
  5. 36  POKE 230,64: CALL 37524: REM  DRAW AT VT-YINCR/PAGE 2
  6. 37  POKE 230,32: CALL 37574: REM  DRAW AT VT/PAGE 1
  7. 45  FOR X = 1 TO 40
  8. 50  CALL 37556: CALL 37581: REM  USE FLPDN ROUTINES
  9. 60  NEXT 
  10. 65  CALL 37556: CALL 37470: REM   DRAW AT VT-YINCR AND VT+YINCR/PAGE 2-RETURN TO VT
  11. 70  FOR X = 1 TO 40
  12. 80  CALL 37500: CALL 37531: REM  USE FLPUP ROUTINES
  13. 90  NEXT 
  14. 100  POKE 230,64: CALL 37574: POKE 230,32: CALL 37524: REM  ERASE VT-YINCR/PAGE 2-VT/PAGE 1
  15. 105 HR = HR +1:HL = HL +1: POKE 254,HR: POKE 255,HL: REM  MOVE RIGHT
  16. 110  IF HR <40  THEN 36: REM  IF WE'RE NOT OFF SCREEN CONTINUE RIGHT
  17. 120  GOTO 30: REM  START OVER